";
// echo " | TEKSTSEGMENTEN | |
";
// echo "| POSITIE | Webmaster | ".$invr_chbt." | CODERING
GRAMMATICA
CONVERSATIE |
";
}
$word_numb=2;
if (count($tlkd_smts) > 0)
{
$levl=0;
echo "| Build CSV | Vraag |
";
$sw=0;
echo "";
foreach($tlkd_smts as $tlkd_key => $tlkd_val)
{
$tlkd_key=trim($tlkd_key);
// echo "
TLKD KEY ".$tlkd_key." TLKD VAL ".$tlkd_val;
$tlkd_itms=explode("+",$tlkd_key);
// print_r($tlkd_itms);
$tlkd_numb=$tlkd_itms[0];
$tlkd_text=$tlkd_itms[1];
$text_itms=explode(" ",$tlkd_text);
// echo "
TLKD TEXT ".$tlkd_text;
$cntr_itms=count($text_itms);
$stlkd_text=str_replace(" ","+",$tlkd_text);
$tlkd_tlkd=$tlkd_itms[2];
$tlkd_dtls=explode(".",$tlkd_tlkd);
$tlkd_tlgr=$tlkd_dtls[0];
$tlkd_gram=$tlkd_dtls[1];
// echo "
STLKD TEXT ".$stlkd_text;
if ($srelt != $tlkd_text)
{
$srelt=$tlkd_text;
$enrc_rslt=enrc_text($tlkd_text);
foreach($enrc_rslt as $enrc_key => $enrc_val)
{
$enrc_itms=explode("!!",$enrc_key);
$enrc_perc=$enrc_itms[0];
$enrc_text=$enrc_itms[1];
$scnd_rslt=smta_tlkd($enrc_text."@qstn");
foreach($qstn_rslt as $qstn_key => $qstn_val)
{
// echo "
KEY ".$qstn_key." VAL ".$qstn_val;
$qstn_itms=explode("@",$qstn_key);
$qstn_pos=$qstn_itms[0];
$qstn_text=$qstn_itms[1];
$tlkd_pos=strpos($enrc_text,$qstn_text,0);
// echo "
TLKD POS ".$tlkd_pos;
if ($tlkd_pos === false)
{
// echo "
The string was not found in the string ".$tlkd_val;
}
else
{
// echo "
The string $qstn_text was found in the string ".$qstn_key;
if ($sw < 1)
{
$sw=$sw+1;
echo "| VRAAG ".$qstn_pos." | ".$qstn_text." |
";
}
}
}
$levl=$levl+1;
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`,`levl`) VALUES (NULL,'1','','$enrc_text','','$invr_bzv1','','test-shrt-tref','$site_datm','$levl')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
// echo "
| ".$tlkd_text." | ".$enrc_perc." | ".$enrc_text." |
";
}
// echo "
";
// print_r($enrc_rslt);
}
$smta_updt="?bzkr=".$invr_bzkr."&domn=".$sinvr_bzv1."&lnks=".$tlkd_tlgr."&bzv1=".$stlkd_text."&taal=".$bzv1_taal."&corp=".$invr_corp."&chbt=".$invr_chbt;
$ltlkd_tlgr="".$tlkd_tlgr."";
$ltlkd_rule="".$tlkd_tlgr."";
foreach($text_itms as $text_key => $text_val)
{
if(strlen($text_val) > 2 )
{
// echo "
TEXT VAL ".$text_val." TLKD KEY ".$tlkd_key;
$tlkd_pos = strpos($tlkd_key,$tlkd_text);
if ($tlkd_pos !== false)
{
// echo "
found KEY ".$tlkd_key." TEXT VAL ".$tlkd_text;
$desc_array[$text_val."!!".$tlkd_text]=$desc_array[$text_val."!!".$tlkd_text]+1;
}
$wrds_array[$text_val."@".$tlkd_gram]=$wrds_array[$text_val."@".$tlkd_gram]+1;
}
}
if ($tlkd_tlgr == "tijd" or $tlkd_gram == "jtl")
{
$plce_time["t.".$tlkd_text]=$plce_time["t.".$tlkd_text]+1;
}
if ($tlkd_tlgr == "plaats" )
{
$plce_time["p.".$tlkd_text]=$plce_time["p.".$tlkd_text]+1;
}
// echo "
TLKD TEXT ".$tlkd_text." TLKD TLGR ".$tlkd_tlgr." TLKD GRAM ".$tlkd_gram." TLKD TLKD ".$tlkd_tlkd." TLKD TLGR ".$tlkd_tlgr;
// if ($tlkd_tlgr == "adjc" or $tlkd_tlgr == "pxpr" or $tlkd_tlgr == "bvbv" or $tlkd_tlgr == "dbbn" or $tlkd_tlgr == "pers" or $tlkd_tlgr == "vbsb" or $tlkd_tlgr == "lbvb")
if ($tlkd_tlgr != "xxxx")
// if (substr($tlkd_tlgr,2,2) == "sb")
{
// echo "
SB ITEMS TLKD TEXT ".$tlkd_text." TLKD GRAM ".$tlkd_tlgr." WORD NUMB ".$word_numb;
$smta_updt="?bzkr=".$invr_bzkr."&lnks=".$stlkd_text."&bzv1=".$stlkd_text."&taal=".$bzv1_taal."&corp=".$invr_corp."&chbt=".$invr_chbt;
// echo "
not XXXX SMTA UPDAT ".$smta_updt;
if($hrelt != $tlkd_text and $cntr_itms < 3)
{
// echo "
TLKD TEXT ".$tlkd_text."@".$tlkd_tlgr;
$two_wrds[$tlkd_text."@".$tlkd_tlgr]=$two_wrds[$tlkd_text."@".$tlkd_tlgr]+1;
}
if($hrelt != $tlkd_text and $cntr_itms > $word_numb)
{
if ($tlkd_gram == "tbd")
{
$xxxx_tlkd="xdotx".$tlkd_text;
// echo "
XXXX TLKD ".$xxxx_tlkd;
$rule_rslt=xtrt_xxxx($xxxx_tlkd,$bzv1_taal,"rule");
asort($rule_rslt);
foreach($rule_rslt as $rule_key => $rule_val)
{
$rc=$rc+1;
$rule_conv[$rc]=$rule_key;
// echo "
TBD RULE KEY ".$rule_key." RULE VAL ".$rule_val;
}
// print_r($rule_rslt);
// echo "
".$tlkd_numb."--".$tlkd_text."";
}
if ($tlkd_gram != "tbd")
{
$xxxx_tlkd="xdotx".$tlkd_text;
// echo "
TLKD GRAM ".$tlkd_tlgr." XXXX TLKD ".$xxxx_tlkd;
$rule_rslt=xtrt_xxxx($xxxx_tlkd,$bzv1_taal,"rule");
foreach($rule_rslt as $rule_key => $rule_val)
{
$rc=$rc+1;
$rule_conv[$rc]=$rule_key;
// echo "
NOT TBD RULE KEY ".$rule_key." RULE VAL ".$rule_val;
}
// asort($rule_rslt);
// print_r($rule_rslt);
$rule_updt="?bzkr=".$invr_bzkr."&grm=".$tlkd_tlgr."&lnks=".$sinvr_bzv1."&bzv1=".$stlkd_text."&taal=".$bzv1_taal."&corp=".$invr_corp."&chbt=".$invr_chbt;
// $sapi_updt="?bzv1=".$stlkd_text."&lnks=".$stlkd_text."&corp=".$invr_corp."&chbt=".$invr_chbt;
// echo "
COUNT RULE RESLT ".count($rule_rslt)." TLKD TEXT ".$tlkd_text." TLKD GRAM ".$tlkd_tlgr." TLKD GRAM ".$tlkd_gram."TLKD TLKD ".$tlkd_tlkd;
// echo "
COUNT RULE RESLT ".count($rule_rslt)." TLKD GRAM ".$tlkd_gram;
if (count($rule_rslt) == 0)
{
$ltlkd_text="".$tlkd_text."";
$papi_text="".$tlkd_text."";
// echo "| ".$tlkd_numb." | ".$ptlkd_text." | ".$ltlkd_text." | ".$ltlkd_tlgr."
".$ltlkd_rule." |
";
// echo "| ".$papi_text;
echo " | ".$tlkd_numb." ".$tlkd_text." |
";
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`,`levl`) VALUES (NULL,'1','','$tlkd_text','','$invr_bzv1','','invr_bzkr','$site_datm','0')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
}
if (count($rule_rslt) > 0)
{
foreach($rule_rslt as $gw27_key => $gw27_val)
{
$hrchs="xxxxx";
// echo "
GW27 KEY ".$gw27_key." GW27 VAL ".$gw27_val;
$gw27_dtls=explode("!!",$gw27_key);
// print_r($gw27_dtls);
$gw27_scre=$gw27_dtls[0];
$gw27_taal=$gw27_dtls[1];
$gw27_domn=$gw27_dtls[2];
$gw27_lnks=$gw27_dtls[3];
$gw27_rchs=$gw27_dtls[4];
$sgw27_rchs=str_replace(" ","+",$gw27_rchs);
$papi_text="".$tlkd_text."";
// echo "| ".$tlkd_numb." | ".$ptlkd_text." | ".$ltlkd_text." | ".$ltlkd_tlgr."
".$ltlkd_rule." |
";
echo "| Build CSV | ".$papi_text." |
";
$smta_updt="?bzkr=".$invr_bzkr."&lgrm=".$tlkd_tlgr."&lnks=".$sinvr_bzv1."&lnks=".$sgw27_rchs."&bzv1=".$stlkd_text."&taal=".$bzv1_taal."&corp=".$invr_corp."&chbt=".$invr_chbt;
// echo "
RULE RSLT SMTA UPDAT ".$smta_updt;
// $ltlkd_text="".$tlkd_text."";
// echo "| ".$tlkd_numb." | ".$gw27_lnks." | ".$gw27_rchs." | ".$ltlkd_gram."
".$ltlkd_rule." |
";
// echo "| ".$tlkd_numb." | ".$gw27_lnks." | ".$gw27_rchs." |
";
}
}
// echo "
RULE RSLT SMTA UPDAT ".$smta_updt;
// echo "
".$tlkd_tlgr;
/////////////////////
$tlkd_abbr=xtrt_xxxx("xdotx".$tlkd_tlgr,"generiek","tlkd");
foreach($tlkd_abbr as $abbr_key => $abbr_val)
{
$abbr_dtls=explode("!!",$abbr_key);
// print_r($abbr_dtls);
$abbr_scre=$abbr_dtls[0];
$abbr_taal=$abbr_dtls[1];
$abbr_domn=$abbr_dtls[2];
$abbr_lnks=$abbr_dtls[3];
$abbr_rchs=$abbr_dtls[4];
//print_r($tlkd_abbr);
// echo "
".$tlkd_tlgr." ".$abbr_rchs;
}
/////////////////////////
if ($userip != "81.207.16.26")
{
echo "-".$tlkd_text."";
}
else
{
$smta_updt="?bzkr=".$invr_bzkr."&lgrm=".$tlkd_tlgr."&lnks=".$sinvr_bzv1."&bzv1=".$stlkd_text."&bzv1=".$stlkd_text."&taal=".$bzv1_taal."&corp=".$invr_corp."&chbt=".$invr_chbt;
// echo "| ".$tlkd_tlgr." | ".$tlkd_text." |
";
}
}
}
$hrelt=$tlkd_text;
}
}
}
echo "
";
// echo "